home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 04 - 1988 / 04.01 Jan 88 / basic source / ColorBASIC.BAS next >
Encoding:
BASIC Source File  |  1987-11-19  |  4.0 KB  |  194 lines  |  [TEXT/ZBAS]
  1. 'ColorBasic
  2. 'MacTutor, 1987
  3. 'By Dave Kelly
  4.  
  5. WINDOW OFF
  6. COORDINATE WINDOW
  7. 'A color chart for future reference
  8. DIM rect%(3)
  9. MENU 1,0,1,"File"
  10. MENU 1,1,1,"Quit"
  11. EDIT MENU 2
  12. MENU 3,0,1,"Colors"
  13. MENU 3,1,1,"ZBasic™ Commands"
  14. MENU 3,2,1,"ToolBox Commands"
  15. MENU 3,3,1,"Erase window"
  16. theEnd=0:REM theEnd will never come.
  17.  
  18. 'Make QuickDraw Color Assignments
  19. blackColor&=33
  20. whiteColor&=30
  21. redColor&=205
  22. greenColor&=341
  23. blueColor&=409
  24. cyanColor&=273
  25. magentaColor&=137
  26. yellowColor&=69
  27.  
  28. 'Make ZBasic Color Assignments
  29. white=0
  30. yellow=1
  31. green=2
  32. cyan=3
  33. blue=4
  34. magenta=5
  35. red=6
  36. black=7
  37. WINDOW 1,"Color Demo Window",(4,38)-(450,200),4
  38. GOSUB "ZBasic™ Colors": ' Print something to start
  39.  
  40. ON MENU GOSUB "MenuEvent"
  41. MENU ON
  42.  
  43. theEnd=0:REM theEnd will never come.
  44. DO
  45. UNTIL theEnd
  46.  
  47. MENU OFF
  48.  
  49. "MenuEvent"
  50. Menunumber%=MENU(0)
  51. Menuitem%=MENU(1)
  52. MENU
  53. IF Menunumber%=1 AND Menuitem%=1 THEN "Quit"
  54. IF Menunumber%=3 AND Menuitem%=1 THEN GOSUB "ZBasic™ Colors"
  55. IF Menunumber%=3 AND Menuitem%=2 THEN GOSUB "QuickDraw™ Colors"
  56. IF Menunumber%=3 AND Menuitem%=3 THEN CLS:PRINT@(1,3)"The Colors are now cleared!"
  57. RETURN
  58.  
  59. "Quit"
  60. END
  61.  
  62. "ZBasic™ Colors"
  63. CLS
  64. TEXT 2,14,0,0
  65. PRINT%(170,20) "ZBasic™ Colors"
  66. COLOR=white
  67. BOX FILL 5,50 TO 55,100
  68. COLOR=yellow
  69. BOX FILL 60,50 TO 110,100
  70. COLOR=green
  71. BOX FILL 115,50 TO 165,100
  72. COLOR=cyan
  73. BOX FILL 170,50 TO 220,100
  74. COLOR=blue
  75. BOX FILL 225,50 TO 275,100
  76. COLOR=magenta
  77. BOX FILL 280,50 TO 330,100
  78. COLOR=red
  79. BOX FILL 335,50 TO 385,100
  80. COLOR=black
  81. BOX FILL 390,50 TO 440,100
  82. BOX 5,50 TO 55,100
  83. BOX 60,50 TO 110,100
  84. BOX 115,50 TO 165,100
  85. BOX 170,50 TO 220,100
  86. BOX 225,50 TO 275,100
  87. BOX 280,50 TO 330,100
  88. BOX 335,50 TO 385,100
  89. BOX 390,50 TO 440,100
  90. TEXT 2,10
  91. PRINT%(25,48) white
  92. PRINT%(75,48) yellow
  93. PRINT%(130,48) green
  94. PRINT%(190,48) cyan
  95. PRINT%(240,48) blue
  96. PRINT%(300,48) magenta
  97. PRINT%(355,48) red
  98. PRINT%(410,48) black
  99. PRINT%(25,112) whiteColor&
  100. PRINT%(75,112) yellowColor&
  101. PRINT%(130,112) greenColor&
  102. PRINT%(190,112) cyanColor&
  103. PRINT%(240,112) blueColor&
  104. PRINT%(300,112) magentaColor&
  105. PRINT%(350,112) redColor&
  106. PRINT%(410,112) blackColor&
  107. TEXT 2,14
  108. PRINT%(150,140) "QuickDraw™ Colors"
  109. RETURN
  110.  
  111. "QuickDraw™ Colors"
  112. CLS
  113. CALL MOVETO (170,20)
  114. CALL TEXTFONT(2)
  115. CALL TEXTSIZE(14)
  116. CALL DRAWSTRING ("ZBasic™ Colors")
  117. CALL SETRECT(rect%(0),5,50,55,100)
  118. CALL FORECOLOR(whiteColor&)
  119. CALL PAINTRECT(rect%(0))
  120. CALL SETRECT(rect%(0),60,50,110,100)
  121. CALL FORECOLOR(yellowColor&)
  122. CALL PAINTRECT(rect%(0))
  123. CALL SETRECT(rect%(0),115,50,165,100)
  124. CALL FORECOLOR(greenColor&)
  125. CALL PAINTRECT(rect%(0))
  126. CALL SETRECT(rect%(0),170,50,220,100)
  127. CALL FORECOLOR(cyanColor&)
  128. CALL PAINTRECT(rect%(0))
  129. CALL SETRECT(rect%(0),225,50,275,100)
  130. CALL FORECOLOR(blueColor&)
  131. CALL PAINTRECT(rect%(0))
  132. CALL SETRECT(rect%(0),280,50,330,100)
  133. CALL FORECOLOR(magentaColor&)
  134. CALL PAINTRECT(rect%(0))
  135. CALL SETRECT(rect%(0),335,50,385,100)
  136. CALL FORECOLOR(redColor&)
  137. CALL PAINTRECT(rect%(0))
  138. CALL SETRECT(rect%(0),390,50,440,100)
  139. CALL FORECOLOR(blackColor&)
  140. CALL PAINTRECT(rect%(0))
  141. CALL SETRECT(rect%(0),5,50,55,100)
  142. CALL FRAMERECT(rect%(0))
  143. CALL SETRECT(rect%(0),60,50,110,100)
  144. CALL FRAMERECT(rect%(0))
  145. CALL SETRECT(rect%(0),115,50,165,100)
  146. CALL FRAMERECT(rect%(0))
  147. CALL SETRECT(rect%(0),170,50,220,100)
  148. CALL FRAMERECT(rect%(0))
  149. CALL SETRECT(rect%(0),225,50,275,100)
  150. CALL FRAMERECT(rect%(0))
  151. CALL SETRECT(rect%(0),280,50,330,100)
  152. CALL FRAMERECT(rect%(0))
  153. CALL SETRECT(rect%(0),335,50,385,100)
  154. CALL FRAMERECT(rect%(0))
  155. CALL SETRECT(rect%(0),390,50,440,100)
  156. CALL FRAMERECT(rect%(0))
  157. CALL TEXTSIZE (10)
  158. CALL MOVETO (25,48)
  159. PRINT white
  160. CALL MOVETO (75,48)
  161. PRINT yellow
  162. CALL MOVETO (130,48)
  163. PRINT green
  164. CALL MOVETO (190,48)
  165. PRINT cyan
  166. CALL MOVETO (240,48)
  167. PRINT blue
  168. CALL MOVETO (300,48)
  169. PRINT magenta
  170. CALL MOVETO (355,48)
  171. PRINT red
  172. CALL MOVETO (410,48)
  173. PRINT black
  174. CALL MOVETO (25,112)
  175. PRINT whiteColor&
  176. CALL MOVETO (75,112)
  177. PRINT yellowColor&
  178. CALL MOVETO (130,112)
  179. PRINT greenColor&
  180. CALL MOVETO (190,112)
  181. PRINT cyanColor&
  182. CALL MOVETO (240,112)
  183. PRINT blueColor&
  184. CALL MOVETO (300,112)
  185. PRINT magentaColor&
  186. CALL MOVETO (350,112)
  187. PRINT redColor&
  188. CALL MOVETO (410,112)
  189. PRINT blackColor&
  190. CALL TEXTSIZE(14)
  191. CALL MOVETO (150,140)
  192. CALL DRAWSTRING ("QuickDraw™ Colors")
  193. RETURN
  194.